home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / haziran / 20 / setup.exe / {app} / plugins / XQ IE Options 5.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-03-28  |  2.0 KB  |  81 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH"="Internet\Internet Explorer\Appearance"
  5. "NAME"="Appearance Options #1"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.03"
  8. "TEXT 1"="Show "File->Open" command"
  9. "TEXT 2"="Show "File->New" command"
  10. "TEXT 3"="Show "File->Save/Save as" command"
  11. "TEXT 4"="Show "View->Options" command"
  12. "TEXT 5"="Show "Edit->Find" command"
  13. "DESCRIPTION 1"="Some appearance settings of Internet Explorer you might consider changing."
  14. "DESCRIPTION 2"=""
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=" "
  19.  
  20.  
  21. 'All DW
  22. sV1="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoFileOpen"
  23. sV2="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoFileNew"
  24. sV3="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserSaveAs"
  25. sV4="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserOptions"
  26. sV5="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoFindFiles"
  27.  
  28.  
  29. 'Called when the Plugin is started
  30. SUB Plugin_Initialize  
  31.  Call Rd(1,sV1)
  32.  Call Rd(2,sV2)
  33.  Call Rd(3,sV3)
  34.  Call Rd(4,sV4)
  35.  Call Rd(5,sV5)
  36. END SUB
  37.  
  38. 'Called when the Plugin should validate the Data the user has entered
  39. SUB Plugin_CheckData(ElementIndex)
  40. END SUB
  41.  
  42. 'Called when the Plugin should apply the changes
  43. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  44.  Call Wrt(1,sV1)
  45.  Call Wrt(2,sV2)
  46.  Call Wrt(3,sV3)
  47.  Call Wrt(4,sV4)
  48.  Call Wrt(5,sV5)
  49. END SUB
  50.  
  51. Sub Wrt(ITM,VAL)
  52.  b=GetUIElement(ITM)
  53.  if b=false then
  54.     Call RegWriteValue(VAL,1,2)
  55.     Call Restart()
  56.  else
  57.     s=RegReadValue(VAL)
  58.     if IsEmpty(s)=false then
  59.        Call RegDeleteValue(VAL)
  60.        Call Restart()
  61.     end if
  62.  end if
  63. end sub
  64.  
  65. Sub Rd(ITM,VAL)
  66.  i=RegReadValue(VAL)
  67.  if IsEmpty(i) then
  68.     SetUIElement ITM,true
  69.  else
  70.     if i<>1 then     
  71.        SetUIElement ITM,true
  72.     end if
  73.  end if
  74. end sub
  75.  
  76.  
  77. 'Called when the Plugin is about to be removed from memory
  78. SUB Plugin_Terminate
  79. END SUB
  80.  
  81.